home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
0141ter2.zip
/
0141TER2._XE
/
OS2.EXE
/
INSTALL.CMD
next >
Wrap
OS/2 REXX Batch file
|
1993-12-13
|
3KB
|
75 lines
/*
@Goto NoRexx
*/
/* Init */
'@Ansi On'
Say "
"
Say "╒═════════════════════════════════════════════════════════════════════════════╕"
Say "│ REXX-Script to create Terminate-Folder, made by Martin Lorensen │"
Say "╘═════════════════════════════════════════════════════════════════════════════╛"
Say "
"
Say
Say "Creating folder on WPS for Terminate. Please wait..."
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
TerDir=Directory()
TerDir=SubStr(TerDir,1,LastPos('\',TerDir))
Say "Terminate should be installed in "TerDir". If it isn't, this script would not work."
ObjMode="Replace"
rc=0
/* The Folder */
Class = "WPFolder"
Location = "<WP_DESKTOP>"
Title = "Terminate"
SetupString = "OBJECTID=<TER>;ICONFILE="TerDir"OS2\T-OS2.ICO;BACKGROUND="TerDir"OS2\T-OS2.BMP;"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
/* The Programs in the folder */
ObjMode="UpDate"
Class = "WPProgram"
Location = "<TER>"
Title = "Terminate"
SetupString ="OBJECTID=<TEREXE>;ICONFILE="TerDir"OS2\T-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TERMINAT.EXE;STARTUPDIR="TerDir";"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
Title = "TerMail"
SetupString = "OBJECTID=<TMAIL>;ICONFILE="TerDir"OS2\TM-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TMAIL\TMAIL.EXE;STARTUPDIR="TerDir"TMAIL;"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
Title = "Why register?"
SetupString = "OBJECTID=<TERREGDOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"DOCS\YouGet.DOC;"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
Title = "Terminate & OS/2"
SetupString = "OBJECTID=<TEROS2DOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"OS2\OS2.DOC;"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
/* Open folder */
Class = "WPFolder"
Location = "<WP_DESKTOP>"
Title = "Terminate"
SetupString = "OBJECTID=<TER>;OPEN=Default;"
rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
Say
Say "Terminate folder created. "RC" problem(s) detected."
Exit;
/* Users without REXX-support!
:NoRexx
@Echo Off
Ansi On'
Echo
Echo ╒═════════════════════════════════════════════════════════════════════════════╕
Echo │ REXX-Script to create Terminate-Folder, made by Martin Lorensen │
Echo ╘═════════════════════════════════════════════════════════════════════════════╛
Echo
Echo FATAL ERROR: No REXX-suport is installed.
Echo Please install REXX and then try again.
REM */